home *** CD-ROM | disk | FTP | other *** search
/ Creative Review 34 / Creative-Review-CD-ROM-34.iso / pc / foo / foos.dir / 00024_Script_move video = < prev    next >
Text File  |  1998-01-23  |  1KB  |  42 lines

  1. on mouseEnter me
  2.   --checkWindows
  3.   set the member of sprite the spriteNum of me ="posnHi"
  4.   set the cursor of sprite the spriteNum of me =[the number of member "finger", the number of member "fingermask"]
  5.   set the foreColor of sprite 33=251
  6. end
  7.  
  8.  
  9. on mouseDown me
  10.   --checkWindows
  11.   global present_duration, nowHowloud
  12.   set the soundLevel=0
  13.   
  14.   set the cursor of sprite the spriteNum of me =[the number of member "hand", the number of member "handmask"]
  15.   
  16.   repeat while the stilldown
  17.     set the locH of sprite the currentSpriteNum=the mouseH
  18.     set plaice=float((the locH of sprite 57-the left of sprite 31)*1000/(the right of sprite 31-the left of sprite 31))/1000
  19.     
  20.     set the movieTime of sprite 30=plaice*present_duration 
  21.     updateStage
  22.   end repeat
  23.  
  24.   set the soundLevel=nowHowloud
  25.   
  26.   --script to go in mouseUp with startTimer check to make slider play/pause button
  27.   --if the mouseV<the top of sprite the currentSpriteNum then
  28.   --  set the movieRate of sprite 30=0
  29.   --   set the member of sprite 33=the number of member "play"
  30.   -- else  if the mouseV>the bottom of sprite the currentSpriteNum then
  31.   --   set the movieRate of sprite 30=1
  32.   --   set the member of sprite 33=the number of member "pause"
  33.   -- end if
  34.   
  35. end
  36.  
  37. on mouseLeave me
  38.   --checkWindows
  39.   set the member of sprite the spriteNum of me ="posn"
  40.   set the cursor of sprite the spriteNum of me =0 
  41.   set the foreColor of sprite 33=43
  42. end